#!/usr/bin/perl

# Define a string to replace
#sub string
$mystring = "Hello, PERL!";

print "Before replacement : $mystring\n";

substr($mystring, 7) = "World!";

print "After replacement : $mystring\n";


$mystring = "Hello, PERL!";

print "Before replacement : $mystring\n";

substr($mystring, 3, 6) = "World!";

print "After replacement : $mystring\n";


#multiline string

$string = 'This is
a multiline
string';

print "$string\n";

print <<EOF;
This is
a multiline
string
EOF


# v string
$name = v77.97.114.116.105.110;

print "$name \n";




